home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / B-Book Series / (k)b8.d64 / demo 3.2.l < prev    next >
Text File  |  2007-02-28  |  697b  |  28 lines
  1. 0010 SETGRAPHIC 0
  2. 0020 HIDETURTLE 
  3. 0030 DIM IMAGE$ OF 64, IMAGE1$ OF 64
  4. 0040 FOR I:=1 TO 63 DO
  5. 0050 IMAGE$:=IMAGE$+CHR$(255)
  6. 0060 READ INFO
  7. 0070 IMAGE1$:=IMAGE1$+CHR$(INFO)
  8. 0080 ENDFOR I
  9. 0090 IMAGE$:=IMAGE$+CHR$(0)
  10. 0100 IMAGE1$:=IMAGE1$+CHR$(0)
  11. 0110 DEFINE 0,IMAGE$
  12. 0120 DEFINE 1,IMAGE1$
  13. 0130 IDENTIFY 0,0
  14. 0140 IDENTIFY 1,1
  15. 0150 SPRITECOLOR 0,2
  16. 0160 SPRITECOLOR 0,2
  17. 0170 SPRITESIZE 0,1,1
  18. 0180 SPRITESIZE 1,0,0
  19. 0190 SPRITEPOS 0,0,99
  20. 0200 SPRITEPOS 1,200,200
  21. 0210 DATA 4,0,32,10,0,80,17,25,136
  22. 0220 DATA 33,0,132,6,0,96,8,0,16
  23. 0230 DATA 18,0,72,33,129,132,32,0,4
  24. 0240 DATA 32,0,4,32,24,4,16,6,8
  25. 0250 DATA 8,60,16,4,0,32,3,0,192
  26. 0260 DATA 0,25,0,0,102,0,0,102,0
  27. 0270 DATA 2,102,64,5,102,160,8,231,16
  28.